Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

0P
ClrText
Locate 5,4,"3D SOCCER 98"
ClrText
"ANGLES ORIENTES:"
"0 1"
"-90 2"?Z
ClrText
Lbl D
Lbl V
ViewWindow 0,95,0,0,62,0
F-Line 80,35,94,35
F-Line 88,35,88,50
F-Line 0,0,95,0
F-Line 95,0,95,62
F-Line 95,62,0,62
F-Line 0,62,0,0
F-Line 19,54,19,34
F-Line 19,34,0,34
F-Line 8,54,8,52
F-Line 11,54,11,52
Text 3,3,"ALONZO RAUD PRG/3D.S/POINTS"
Text 3,115,P
F-Line 0,54,95,54
F-Line 0,0,32,42
F-Line 95,0,70,42
F-Line 32,42,43.7,42
F-Line 70,42,58.6,42
F-Line 43.7,41,43.7,48
F-Line 43.7,48,58.6,48
F-Line 58.6,48,58.6,41
F-Line 35,42,29,33
F-Line 29,33,72.3,33
F-Line 72.3,33,67.3,42
If Z=1
Then Text 13,105,"90"
Text 22,105,"180"
Else Text 13,110,"0"
Text 22,106,"90"
IfEnd
Lbl r
60Ran#C
If C40 Or C60
Then Goto r
IfEnd
F-Line C,39,C+5,39
F-Line C+5,39,C+5,46
F-Line C+5,46,C,46
F-Line C,46,C,39
(C10)x2H
F-Line H,50,H+1,50
(80Ran#)+15S
(15Ran#)T
Orange F-Line S,T,S+1,T
Orange F-Line S,T+1,S+1,T+1
(S10)x2F
(T10)x2G
G+35G
Orange PlotOn F,G
ClrText
"ANGLE"?A
"FORCE"?U
If Z=2
Then A+90A
Else AA
IfEnd
U10U
Ucos AV
Usin AW
Lbl 1
S+VS
T+WT
G+40G
PlotOn S,T
PlotOn S,T
PlotOff S,T
S95Goto 2
S1Goto 2
T1Goto 2
T48Goto 2
SCSC+5T39T46Goto 4
S44S59T41T<48Goto 3
Goto 1
Lbl 4
F-Line S,T,S+1,T
F-Line S,T+1,S+1,T+1
Text 3,89,"PERDU "
Goto D
Lbl 2
Text 3,89,"PERDU "
Goto D
Lbl 3
P+1P
Text 3,115,P
Text 3,89,"GAGNE "
F-Line S,T,S+1,T
F-Line S,T+1,S+1,T+1
Goto D